(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     68283,       2347]
NotebookOptionsPosition[     61461,       2128]
NotebookOutlinePosition[     64562,       2216]
CellTagsIndexPosition[     64412,       2209]
WindowTitle->Chisholm
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {Cell["FEYN CALC SYMBOL", "PacletNameCell"], Cell[TextData[{
     Cell[BoxData[
      ActionMenuBox[
       FrameBox[
        InterpretationBox[Cell[TextData[{
          "See Also",
          StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
           StripOnInput->False]
         }]],
         TextCell[
          Row[{"See Also", 
            Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
        StripOnInput->False], {"\<\"EpsChisholm\"\>":>
       Documentation`HelpLookup["paclet:FeynCalc/ref/EpsChisholm"]},
       Appearance->None,
       MenuAppearance->Automatic,
       MenuStyle->"SeeAlso"]],
      LineSpacing->{1.4, 0}],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      ActionMenuBox[
       FrameBox[
        InterpretationBox[Cell[TextData[{
          "URL",
          StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
           StripOnInput->False]
         }]],
         TextCell[
          Row[{"URL", 
            Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
        StripOnInput->False], {"\<\"FeynCalc/ref/Chisholm\"\>":>
       None, "\<\"Copy Wolfram Documentation Center URL\"\>":>
       Module[{DocumentationSearch`Private`nb$}, 
        DocumentationSearch`Private`nb$ = NotebookPut[
           Notebook[{
             Cell["FeynCalc/ref/Chisholm"]}, Visible -> False]]; 
        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
       Delimiter, "\<\"Copy web URL\"\>":>
       Module[{DocumentationSearch`Private`nb$}, 
        DocumentationSearch`Private`nb$ = NotebookPut[
           Notebook[{
             Cell[
              BoxData[
               MakeBoxes[
                Hyperlink[
                "http://reference.wolfram.com/language/FeynCalc/ref/Chisholm.\
html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
            False]]; SelectionMove[
         DocumentationSearch`Private`nb$, All, Notebook]; 
        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
        NotebookClose[DocumentationSearch`Private`nb$]; 
        Null], "\<\"Go to web URL\"\>":>FrontEndExecute[{
         NotebookLocate[{
           URL[
            StringJoin[
             If[
              TrueQ[DocumentationBuild`Make`Private`wsmlinkQ$40252], 
              "http://reference.wolfram.com/system-modeler/", 
              "http://reference.wolfram.com/language/"], 
             "FeynCalc/ref/Chisholm", ".html"]], None}]}]},
       Appearance->None,
       MenuAppearance->Automatic,
       MenuStyle->"URLMenu"]],
      LineSpacing->{1.4, 0}]
    }], "AnchorBar"]}
  }]], "AnchorBarGrid",
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.65], {
      Scaled[0.34]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->1],

Cell[TextData[{
 Cell["Chisholm", "ObjectName"],
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{8, 0}],
    CacheGraphics->False],
   Spacer[8]]]],
 Cell[BoxData[""], "ObjectNameTranslation"]
}], "ObjectNameGrid"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"Chisholm", "[", "exp", "]"}]], "InlineFormula"],
     " \[LineSeparator]substitutes products of three Dirac matrices or \
slashes by the Chisholm identity."
    }]]}
  }]], "Usage",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
   "RowsIndexed" -> {}}},
 CellID->982511436],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 ButtonBox[Cell[TextData[{
   Cell[BoxData[
    InterpretationBox[
     StyleBox[
      GraphicsBox[{},
       BaselinePosition->Baseline,
       ImageSize->{6, 0}],
      CacheGraphics->False],
     Spacer[6]]]],
   "Details"
  }], "NotesFrameText"],
  Appearance->{Automatic, None},
  BaseStyle->None,
  ButtonFunction:>(FrontEndExecute[{
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], All, ButtonCell], 
     FrontEndToken["OpenCloseGroup"], 
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], After, CellContents]}]& ),
  Evaluator->None,
  Method->"Preemptive"]]]], "NotesSection",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1956487543],

Cell["", "SectionHeaderSpacer"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "Chisholm", "]"}]], "Input",
 CellLabel->"In[55]:="],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Contract", "\[Rule]", "True"}], ",", 
    RowBox[{"DiracSimplify", "\[Rule]", "True"}], ",", 
    RowBox[{"DotSimplify", "\[Rule]", "True"}], ",", 
    RowBox[{"FCDiracIsolate", "\[Rule]", "True"}], ",", 
    RowBox[{"FeynCalcExternal", "\[Rule]", "False"}], ",", 
    RowBox[{"FeynCalcInternal", "\[Rule]", "False"}], ",", 
    RowBox[{"FCJoinDOTs", "\[Rule]", "True"}], ",", 
    RowBox[{"FCVerbose", "\[Rule]", "False"}], ",", 
    RowBox[{"Mode", "\[Rule]", "1"}], ",", 
    RowBox[{"DiracSigmaExplicit", "\[Rule]", "False"}], ",", 
    RowBox[{"NonCommutative", "\[Rule]", "True"}], ",", 
    RowBox[{"MaxIterations", "\[Rule]", "\[Infinity]"}], ",", 
    RowBox[{"InsideDiracTrace", "\[Rule]", "False"}]}], "}"}], 
  TraditionalForm]], "Output",
 ImageSize->{498, 73},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[55]="]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CellTags->"PrimaryExamplesSection",
 CellID->1819697314],

Cell[CellGroupData[{

Cell[TextData[{
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CellID->1704469344],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GA", "[", 
  RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}], "]"}]], "Input",
 CellTags->"Chisholm",
 CellLabel->"In[1]:=",
 CellID->820852327],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Mu]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Nu]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Rho]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm]}], TraditionalForm]], "Output",
 ImageSize->{74, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Chisholm",
 CellLabel->"Out[1]="]
}, Open  ]],

Cell["Notice that the output contains dummy indices.", "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Chisholm", "[", "%", "]"}]], "Input",
 CellTags->"Chisholm",
 CellLabel->"In[2]:=",
 CellID->1637229100],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox[
        RowBox[{"$MU", "\[InvisibleApplication]", 
         RowBox[{"(", "$28", ")"}]}],
        TraditionalForm],
       TraditionalForm]], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox["5",
       TraditionalForm]]}], " ", 
    SuperscriptBox[
     OverscriptBox["\[Epsilon]", "_"], 
     RowBox[{
      FormBox[
       FormBox["\[Mu]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Rho]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox[
        RowBox[{"$MU", "\[InvisibleApplication]", 
         RowBox[{"(", "$28", ")"}]}],
        TraditionalForm],
       TraditionalForm]}]]}], "+", 
   RowBox[{
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Rho]",
       TraditionalForm],
      TraditionalForm]], " ", 
    SuperscriptBox[
     OverscriptBox["g", "_"], 
     RowBox[{
      FormBox[
       FormBox["\[Mu]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]}]]}], "-", 
   RowBox[{
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Nu]",
       TraditionalForm],
      TraditionalForm]], " ", 
    SuperscriptBox[
     OverscriptBox["g", "_"], 
     RowBox[{
      FormBox[
       FormBox["\[Mu]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Rho]",
        TraditionalForm],
       TraditionalForm]}]]}], "+", 
   RowBox[{
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Mu]",
       TraditionalForm],
      TraditionalForm]], " ", 
    SuperscriptBox[
     OverscriptBox["g", "_"], 
     RowBox[{
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Rho]",
        TraditionalForm],
       TraditionalForm]}]]}]}], TraditionalForm]], "Output",
 ImageSize->{411, 19},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Chisholm",
 CellLabel->"Out[2]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GA", "[", 
  RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Mu]", ",", "\[Nu]"}], 
  "]"}]], "Input",
 CellLabel->"In[3]:="],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Alpha]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Beta]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Mu]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Nu]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm]}], TraditionalForm]], "Output",
 ImageSize->{101, 18},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[3]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Chisholm", "[", "%", "]"}]], "Input",
 CellTags->"Chisholm",
 CellLabel->"In[4]:=",
 CellID->1963239115],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Alpha]",
        TraditionalForm],
       TraditionalForm]], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox[
        RowBox[{"$MU", "\[InvisibleApplication]", 
         RowBox[{"(", "$29", ")"}]}],
        TraditionalForm],
       TraditionalForm]], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox["5",
       TraditionalForm]]}], " ", 
    SuperscriptBox[
     OverscriptBox["\[Epsilon]", "_"], 
     RowBox[{
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Mu]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox[
        RowBox[{"$MU", "\[InvisibleApplication]", 
         RowBox[{"(", "$29", ")"}]}],
        TraditionalForm],
       TraditionalForm]}]]}], "+", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Alpha]",
        TraditionalForm],
       TraditionalForm]], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]]}], " ", 
    SuperscriptBox[
     OverscriptBox["g", "_"], 
     RowBox[{
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Mu]",
        TraditionalForm],
       TraditionalForm]}]]}], "-", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Alpha]",
        TraditionalForm],
       TraditionalForm]], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Mu]",
        TraditionalForm],
       TraditionalForm]]}], " ", 
    SuperscriptBox[
     OverscriptBox["g", "_"], 
     RowBox[{
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]}]]}], "+", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Alpha]",
        TraditionalForm],
       TraditionalForm]], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]]}], " ", 
    SuperscriptBox[
     OverscriptBox["g", "_"], 
     RowBox[{
      FormBox[
       FormBox["\[Mu]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]}]]}]}], TraditionalForm]], "Output",
 ImageSize->{519, 19},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Chisholm",
 CellLabel->"Out[4]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"SpinorVBar", "[", 
   RowBox[{"p1", ",", "m1"}], "]"}], ".", 
  RowBox[{"GA", "[", 
   RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], 
  ".", 
  RowBox[{"SpinorU", "[", 
   RowBox[{"p2", ",", "m2"}], "]"}]}]], "Input",
 CellLabel->"In[5]:="],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    OverscriptBox["v", "_"], "(", 
    FormBox["p1",
     TraditionalForm], ",", 
    FormBox["m1",
     TraditionalForm], ")"}], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Alpha]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Beta]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Mu]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Nu]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   RowBox[{"u", "(", 
    FormBox["p2",
     TraditionalForm], ",", 
    FormBox["m2",
     TraditionalForm], ")"}]}], TraditionalForm]], "Output",
 ImageSize->{245, 18},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[5]="]
}, Open  ]],

Cell[TextData[{
 "Dummy Lorentz indices may also appear as ",
 ButtonBox["FCGV",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/FCGV",
  ButtonNote->"FCGV"],
 "."
}], "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Chisholm", "[", "%", "]"}]], "Input",
 CellLabel->"In[6]:="],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox[
     OverscriptBox["\[Epsilon]", "_"], 
     RowBox[{
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Mu]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox[
        RowBox[{"FCGV", "(", "\<\"li361\"\>", ")"}],
        TraditionalForm],
       TraditionalForm]}]], " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FormBox["\<\"\[CurlyPhi]\"\>",
        TraditionalForm], 
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        RowBox[{"-", 
         OverscriptBox[
          FormBox["p1",
           TraditionalForm], "_"]}],
        TraditionalForm], 
       FormBox["\<\",\"\>",
        TraditionalForm], 
       FormBox["m1",
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Alpha]",
        TraditionalForm],
       TraditionalForm]], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox[
        RowBox[{"FCGV", "(", "\<\"li361\"\>", ")"}],
        TraditionalForm],
       TraditionalForm]], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox["5",
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       FormBox["\<\"\[CurlyPhi]\"\>",
        TraditionalForm], 
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        OverscriptBox[
         FormBox["p2",
          TraditionalForm], "_"],
        TraditionalForm], 
       FormBox["\<\",\"\>",
        TraditionalForm], 
       FormBox["m2",
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], ")"}]}]}], "+", 
   RowBox[{
    SuperscriptBox[
     OverscriptBox["g", "_"], 
     RowBox[{
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Mu]",
        TraditionalForm],
       TraditionalForm]}]], " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FormBox["\<\"\[CurlyPhi]\"\>",
        TraditionalForm], 
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        RowBox[{"-", 
         OverscriptBox[
          FormBox["p1",
           TraditionalForm], "_"]}],
        TraditionalForm], 
       FormBox["\<\",\"\>",
        TraditionalForm], 
       FormBox["m1",
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Alpha]",
        TraditionalForm],
       TraditionalForm]], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       FormBox["\<\"\[CurlyPhi]\"\>",
        TraditionalForm], 
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        OverscriptBox[
         FormBox["p2",
          TraditionalForm], "_"],
        TraditionalForm], 
       FormBox["\<\",\"\>",
        TraditionalForm], 
       FormBox["m2",
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], ")"}]}]}], "-", 
   RowBox[{
    SuperscriptBox[
     OverscriptBox["g", "_"], 
     RowBox[{
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]}]], " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FormBox["\<\"\[CurlyPhi]\"\>",
        TraditionalForm], 
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        RowBox[{"-", 
         OverscriptBox[
          FormBox["p1",
           TraditionalForm], "_"]}],
        TraditionalForm], 
       FormBox["\<\",\"\>",
        TraditionalForm], 
       FormBox["m1",
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Alpha]",
        TraditionalForm],
       TraditionalForm]], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Mu]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       FormBox["\<\"\[CurlyPhi]\"\>",
        TraditionalForm], 
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        OverscriptBox[
         FormBox["p2",
          TraditionalForm], "_"],
        TraditionalForm], 
       FormBox["\<\",\"\>",
        TraditionalForm], 
       FormBox["m2",
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], ")"}]}]}], "+", 
   RowBox[{
    SuperscriptBox[
     OverscriptBox["g", "_"], 
     RowBox[{
      FormBox[
       FormBox["\[Mu]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]}]], " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FormBox["\<\"\[CurlyPhi]\"\>",
        TraditionalForm], 
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        RowBox[{"-", 
         OverscriptBox[
          FormBox["p1",
           TraditionalForm], "_"]}],
        TraditionalForm], 
       FormBox["\<\",\"\>",
        TraditionalForm], 
       FormBox["m1",
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Alpha]",
        TraditionalForm],
       TraditionalForm]], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       FormBox["\<\"\[CurlyPhi]\"\>",
        TraditionalForm], 
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        OverscriptBox[
         FormBox["p2",
          TraditionalForm], "_"],
        TraditionalForm], 
       FormBox["\<\",\"\>",
        TraditionalForm], 
       FormBox["m2",
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], ")"}]}]}]}], TraditionalForm]], "Output",
 ImageSize->{457, 94},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[6]="]
}, Open  ]],

Cell[TextData[{
 ButtonBox["Chisholm",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/Chisholm",
  ButtonNote->"Chisholm"],
 " only works with Dirac matrices in ",
 Cell[BoxData["4"], "InlineFormula"],
 " dimensions, ",
 Cell[BoxData["D"], "InlineFormula"],
 "-dimensional objects are ignored."
}], "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Chisholm", "[", 
  RowBox[{"GAD", "[", 
   RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}], "]"}], "]"}]], "Input",
 CellLabel->"In[7]:="],

Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox["\[Gamma]", 
    FormBox[
     FormBox["\[Mu]",
      TraditionalForm],
     TraditionalForm]], ".", 
   SuperscriptBox["\[Gamma]", 
    FormBox[
     FormBox["\[Nu]",
      TraditionalForm],
     TraditionalForm]], ".", 
   SuperscriptBox["\[Gamma]", 
    FormBox[
     FormBox["\[Rho]",
      TraditionalForm],
     TraditionalForm]]}], TraditionalForm]], "Output",
 ImageSize->{71, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[7]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Chisholm", "[", 
   RowBox[{"GA", "[", 
    RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Mu]"}], "]"}], "]"}], ".", 
  RowBox[{"Chisholm", "[", 
   RowBox[{"GA", "[", 
    RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Mu]"}], "]"}], 
   "]"}]}]], "Input",
 CellLabel->"In[8]:="],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox[
          RowBox[{"$MU", "\[InvisibleApplication]", 
           RowBox[{"(", "$44", ")"}]}],
          TraditionalForm],
         TraditionalForm]], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox["5",
         TraditionalForm]]}], " ", 
      SuperscriptBox[
       OverscriptBox["\[Epsilon]", "_"], 
       RowBox[{
        FormBox[
         FormBox["\[Alpha]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Beta]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Mu]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox[
          RowBox[{"$MU", "\[InvisibleApplication]", 
           RowBox[{"(", "$44", ")"}]}],
          TraditionalForm],
         TraditionalForm]}]]}], "+", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], 
       FormBox[
        FormBox["\[Mu]",
         TraditionalForm],
        TraditionalForm]], " ", 
      SuperscriptBox[
       OverscriptBox["g", "_"], 
       RowBox[{
        FormBox[
         FormBox["\[Alpha]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Beta]",
          TraditionalForm],
         TraditionalForm]}]]}], "-", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], 
       FormBox[
        FormBox["\[Beta]",
         TraditionalForm],
        TraditionalForm]], " ", 
      SuperscriptBox[
       OverscriptBox["g", "_"], 
       RowBox[{
        FormBox[
         FormBox["\[Alpha]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Mu]",
          TraditionalForm],
         TraditionalForm]}]]}], "+", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], 
       FormBox[
        FormBox["\[Alpha]",
         TraditionalForm],
        TraditionalForm]], " ", 
      SuperscriptBox[
       OverscriptBox["g", "_"], 
       RowBox[{
        FormBox[
         FormBox["\[Beta]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Mu]",
          TraditionalForm],
         TraditionalForm]}]]}]}], ")"}], ".", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox[
          RowBox[{"$MU", "\[InvisibleApplication]", 
           RowBox[{"(", "$45", ")"}]}],
          TraditionalForm],
         TraditionalForm]], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox["5",
         TraditionalForm]]}], " ", 
      SuperscriptBox[
       OverscriptBox["\[Epsilon]", "_"], 
       RowBox[{
        FormBox[
         FormBox["\[Alpha]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Beta]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Mu]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox[
          RowBox[{"$MU", "\[InvisibleApplication]", 
           RowBox[{"(", "$45", ")"}]}],
          TraditionalForm],
         TraditionalForm]}]]}], "+", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], 
       FormBox[
        FormBox["\[Mu]",
         TraditionalForm],
        TraditionalForm]], " ", 
      SuperscriptBox[
       OverscriptBox["g", "_"], 
       RowBox[{
        FormBox[
         FormBox["\[Alpha]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Beta]",
          TraditionalForm],
         TraditionalForm]}]]}], "-", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], 
       FormBox[
        FormBox["\[Beta]",
         TraditionalForm],
        TraditionalForm]], " ", 
      SuperscriptBox[
       OverscriptBox["g", "_"], 
       RowBox[{
        FormBox[
         FormBox["\[Alpha]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Mu]",
          TraditionalForm],
         TraditionalForm]}]]}], "+", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], 
       FormBox[
        FormBox["\[Alpha]",
         TraditionalForm],
        TraditionalForm]], " ", 
      SuperscriptBox[
       OverscriptBox["g", "_"], 
       RowBox[{
        FormBox[
         FormBox["\[Beta]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Mu]",
          TraditionalForm],
         TraditionalForm]}]]}]}], ")"}]}], TraditionalForm]], "Output",
 ImageSize->{446, 47},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[8]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DiracSimplify", "[", "%", "]"}]], "Input",
 CellLabel->"In[9]:="],

Cell[BoxData[
 FormBox["16", TraditionalForm]], "Output",
 ImageSize->{19, 14},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[9]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Chisholm", "[", 
   RowBox[{"GA", "[", 
    RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], 
   "]"}], ".", 
  RowBox[{"Chisholm", "[", 
   RowBox[{"GA", "[", 
    RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], 
   "]"}]}]], "Input",
 CellLabel->"In[10]:="],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Alpha]",
          TraditionalForm],
         TraditionalForm]], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox[
          RowBox[{"$MU", "\[InvisibleApplication]", 
           RowBox[{"(", "$46", ")"}]}],
          TraditionalForm],
         TraditionalForm]], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox["5",
         TraditionalForm]]}], " ", 
      SuperscriptBox[
       OverscriptBox["\[Epsilon]", "_"], 
       RowBox[{
        FormBox[
         FormBox["\[Beta]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Mu]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox[
          RowBox[{"$MU", "\[InvisibleApplication]", 
           RowBox[{"(", "$46", ")"}]}],
          TraditionalForm],
         TraditionalForm]}]]}], "+", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Alpha]",
          TraditionalForm],
         TraditionalForm]], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]]}], " ", 
      SuperscriptBox[
       OverscriptBox["g", "_"], 
       RowBox[{
        FormBox[
         FormBox["\[Beta]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Mu]",
          TraditionalForm],
         TraditionalForm]}]]}], "-", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Alpha]",
          TraditionalForm],
         TraditionalForm]], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Mu]",
          TraditionalForm],
         TraditionalForm]]}], " ", 
      SuperscriptBox[
       OverscriptBox["g", "_"], 
       RowBox[{
        FormBox[
         FormBox["\[Beta]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]}]]}], "+", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Alpha]",
          TraditionalForm],
         TraditionalForm]], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Beta]",
          TraditionalForm],
         TraditionalForm]]}], " ", 
      SuperscriptBox[
       OverscriptBox["g", "_"], 
       RowBox[{
        FormBox[
         FormBox["\[Mu]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]}]]}]}], ")"}], ".", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Alpha]",
          TraditionalForm],
         TraditionalForm]], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox[
          RowBox[{"$MU", "\[InvisibleApplication]", 
           RowBox[{"(", "$47", ")"}]}],
          TraditionalForm],
         TraditionalForm]], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox["5",
         TraditionalForm]]}], " ", 
      SuperscriptBox[
       OverscriptBox["\[Epsilon]", "_"], 
       RowBox[{
        FormBox[
         FormBox["\[Beta]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Mu]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox[
          RowBox[{"$MU", "\[InvisibleApplication]", 
           RowBox[{"(", "$47", ")"}]}],
          TraditionalForm],
         TraditionalForm]}]]}], "+", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Alpha]",
          TraditionalForm],
         TraditionalForm]], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]]}], " ", 
      SuperscriptBox[
       OverscriptBox["g", "_"], 
       RowBox[{
        FormBox[
         FormBox["\[Beta]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Mu]",
          TraditionalForm],
         TraditionalForm]}]]}], "-", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Alpha]",
          TraditionalForm],
         TraditionalForm]], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Mu]",
          TraditionalForm],
         TraditionalForm]]}], " ", 
      SuperscriptBox[
       OverscriptBox["g", "_"], 
       RowBox[{
        FormBox[
         FormBox["\[Beta]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]}]]}], "+", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Alpha]",
          TraditionalForm],
         TraditionalForm]], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Beta]",
          TraditionalForm],
         TraditionalForm]]}], " ", 
      SuperscriptBox[
       OverscriptBox["g", "_"], 
       RowBox[{
        FormBox[
         FormBox["\[Mu]",
          TraditionalForm],
         TraditionalForm], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]}]]}]}], ")"}]}], TraditionalForm]], "Output",
 ImageSize->{542, 47},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[10]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DiracSimplify", "[", "%", "]"}]], "Input",
 CellLabel->"In[11]:="],

Cell[BoxData[
 FormBox[
  RowBox[{"-", "128"}], TraditionalForm]], "Output",
 ImageSize->{36, 14},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[11]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GS", "[", 
  RowBox[{"p", ",", "q", ",", "r"}], "]"}]], "Input",
 CellLabel->"In[12]:="],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"(", 
    FormBox[
     RowBox[{
      OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
      FormBox[
       OverscriptBox[
        FormBox["p",
         TraditionalForm], "_"],
       TraditionalForm]}],
     TraditionalForm], ")"}], ".", 
   RowBox[{"(", 
    FormBox[
     RowBox[{
      OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
      FormBox[
       OverscriptBox[
        FormBox["q",
         TraditionalForm], "_"],
       TraditionalForm]}],
     TraditionalForm], ")"}], ".", 
   RowBox[{"(", 
    FormBox[
     RowBox[{
      OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
      FormBox[
       OverscriptBox[
        FormBox["r",
         TraditionalForm], "_"],
       TraditionalForm]}],
     TraditionalForm], ")"}]}], TraditionalForm]], "Output",
 ImageSize->{149, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[12]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Chisholm", "[", "%", "]"}]], "Input",
 CellLabel->"In[13]:="],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], 
       FormBox[
        FormBox[
         RowBox[{"$MU", "\[InvisibleApplication]", 
          RowBox[{"(", "$48", ")"}]}],
         TraditionalForm],
        TraditionalForm]], ".", 
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], 
       FormBox["5",
        TraditionalForm]]}], " ", 
     SuperscriptBox[
      OverscriptBox["\[Epsilon]", "_"], 
      RowBox[{
       FormBox[
        FormBox[
         RowBox[{"$MU", "\[InvisibleApplication]", 
          RowBox[{"(", "$48", ")"}]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox[
        OverscriptBox[
         FormBox["p",
          TraditionalForm], "_"],
        TraditionalForm], 
       FormBox[
        OverscriptBox[
         FormBox["q",
          TraditionalForm], "_"],
        TraditionalForm], 
       FormBox[
        OverscriptBox[
         FormBox["r",
          TraditionalForm], "_"],
        TraditionalForm]}]]}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FormBox[
       OverscriptBox[
        FormBox["p",
         TraditionalForm], "_"],
       TraditionalForm], 
      FormBox["\<\"\[CenterDot]\"\>",
       TraditionalForm], 
      FormBox[
       OverscriptBox[
        FormBox["q",
         TraditionalForm], "_"],
       TraditionalForm]}], ")"}], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["r",
        TraditionalForm], "_"],
      TraditionalForm]}]}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FormBox[
       OverscriptBox[
        FormBox["p",
         TraditionalForm], "_"],
       TraditionalForm], 
      FormBox["\<\"\[CenterDot]\"\>",
       TraditionalForm], 
      FormBox[
       OverscriptBox[
        FormBox["r",
         TraditionalForm], "_"],
       TraditionalForm]}], ")"}], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["q",
        TraditionalForm], "_"],
      TraditionalForm]}]}], "+", 
   RowBox[{
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}], " ", 
    RowBox[{"(", 
     RowBox[{
      FormBox[
       OverscriptBox[
        FormBox["q",
         TraditionalForm], "_"],
       TraditionalForm], 
      FormBox["\<\"\[CenterDot]\"\>",
       TraditionalForm], 
      FormBox[
       OverscriptBox[
        FormBox["r",
         TraditionalForm], "_"],
       TraditionalForm]}], ")"}]}]}], TraditionalForm]], "Output",
 ImageSize->{520, 19},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[13]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GA", "[", 
  RowBox[{
  "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]", ",", "\[Tau]", ",", 
   "\[Kappa]"}], "]"}]], "Input",
 CellTags->"Chisholm",
 CellLabel->"In[14]:=",
 CellID->1800486413],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Mu]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Nu]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Rho]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Sigma]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Tau]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Kappa]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm]}], TraditionalForm]], "Output",
 ImageSize->{148, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Chisholm",
 CellLabel->"Out[14]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Chisholm", "[", "%", "]"}]], "Input",
 CellTags->"Chisholm",
 CellLabel->"In[15]:=",
 CellID->1694713808],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnQlUFFe6x2fey5nzTubMyRgnL85kTOIKCMZoMiooIKK4hBlFMyKKjvJc
kRgTEQkmgKISAwaNGBO2gAMaQBHFBRTNiEqUVQGBCIjsYLN3N713vd4wbFVd
3V1dfav6+50zczRt36r6/ve7VdXbb5zXxyu2/NdvfvOb3f+j+L8VG/c6ffrp
xs9W/lHxl3/u3L19687Nm5bs9N28dfOns73+W/EfwxT/e1Px75V/xgAAAAAA
oIyeksM3WqVMGZYMEl6XSG6SLY8A+8prhpgkRDn/WXF9n5EmMjo9wr7aApik
JX2f78FD7sHfHgs8WtRWkx1mN2rUnNh6ieZxaev5xX96ebxPSmFp1qHpo/68
LCqXI8bkwqZb4Qumb0ss6tEkJ+fXZF4t7JaONOzDXmV+wsYbcdE/XrtX1igQ
NaXv/+L7lPTkyAM/lHAVD0o7865k1Roes7guerH1hAkTLeb6FXENHYwK2FVe
M4WWELta0lxtrN6ZNm3aOxZ/nbKntE8ubH4Q6zZxVoxmO+zsEXbVlmXIDCiI
pO57p8UZ1UXBWS381ttVXDm/bJ+TzWtW/iV9qsdFtXGrPd/6s8P1Dgzj5q+f
NOPYU5H6mcInpz7O69YMI227suez250y3GGFtT9s+r/TT4WqR7l5/3rX7W6P
Ys+fX3SxO/iL8r/K2rP37M18btiFC7do/7Yzpd3oXMezq7wMBvkeedL27PYz
vnIvpU3Jaz9/xFeNXPO17dyYF6ssC3uEXbU1LuLnOV8tmRNULsD6yvY6LM9s
HzqnZb2lydEp168nBm08eL9HvxkvqY9f6XVHUVde8U6H9bk9+u9uX9l+O8uF
m9ekNqprzH8ctvfsJzbj/nm9Q5ETvzRs77kEuzdHSFZUHbO7QJOsoHy/y64i
Hu6wsrb0v0+2Dzp+5JNV8/4ZXtx6f+2k908oB+q5t2KSffpz1Yzg5m1feLBS
oP+hYMLaaO9ltuNGj1sc/J8OXeeIrCN7m2dCPa8hedfmb2uEAx+SC55lxSVl
XI33nfHqq29PtrCYuuDwL7/uqJSTfcDD8Z23Xxk13spmpseltgGbZlN5KUP/
UusCw3qkH8Xit8a/WP3vhqx+Ju4RvVc2kzfIix0xbm2NT3eOp0vkU0FrhteB
vN4h5Zd13tzx98gaRXmElQfnrcnt1WcD8vZrK5eebZZiwl8Ozl6Q2irT/hR8
ZL3F0Rsn/a+V+/GCHpky2f2FlQmOb9pF1Yk6cgK+Lq3LmKslWUlDrNOwvRg4
bPf9VZZO1xQzUd55Y4WF07nG1uywHVsDjsVG+1n9dWF2p+oJ0sbT8+cnNRl8
1SB5nu3/vtWmfB3v9Hty19nuyMmNP3GjTTLoAXn3nd1ukdUi5VoV6+x6bWhD
yQStHKG8rzTIPaF+8DPVD7OsvBSgd6l1gWk9onlEsfh5+BZo5u6w1c/EPaLf
ymb6BqG1tngIqyPcVx2tMujUJag47Bp4P/90fMnQ6isuL9OW2odVKavDf/jp
goDSPn02wCvwdgn9Rago1b/nzQ59ItT+DGJ6Sg78ePazWTbehTx+efiBkt6u
nzzHW35yNckvpUHEuaxJlle42XJ6eHX/3WhV1L5i9ewRVYfNWZTZgT/snVsf
Wjgph8DET4/PnnmkSj2GYkbYv+V4WnNZIXuevtD+RK3Y0INRFvnCIhcd15K+
0j1T/jJ1xvpbnUMj67y5Yk5guXJCiKqOLvjXzyNeCwgrw1dHPcXZd1aV1/AG
MbDUJGFajxSqLqUVi9/qXXn9xz1s9TNtjxiyspm0QWiu7cjIeorT0oq7DbrC
ETze7+T5RVL1CGeN3lz3SbaJyhMj71GI58n+MumG4irMduHVdrmo5nunKese
9Bqws321Z7NbJMoPUdQ/iZjnlt3JLwsNfMhVTKFgm9HWntkdMjknY446WUlD
nN3kVZr1QMa59XnSM/Xuy1rPucyPb5TiDnu94ozL+77K1zcF5YEO6/7TpXrL
uSZm2SSHwyU8zRwV133ntCSDY8hlqlikKoW4Nsr98GOd1j5xbaSD86kzXjPX
ZrUPufZpTZ1vq1qshdWnPIJHftNTUhezaM2NYSslu8qrqYehDWJgqUnCuB5R
3VpKm1PcfX5+8cLdsNXPpD2CGbCymbZBaKqtIezFp6Wlpf9f9ebv2JZYP9LJ
T1ARNPWNWa5BCZfSk+J/asU5P2oZX9p81snScb7nrv1hEcveWxZ+kfhDDYSj
iZvT9u39+vuv1wYe+yrohzJOdVaI3cx9V6r5oqbUTYdK+NLeR6nbx70yYeeF
Cp5Mzis7temDVTsCQkJDDx6Oe/TiukX0NNJ1y8BXsgcPW86XC6rjdmz44rvE
6IP7LzSKhY0340N8NvjFPxzQ8d05G/8R9Yz4koHwWPglvrZTnH2OxyfEpVfx
cUoy8nMljaed7cKqeE1n1i89dG/wsilpPrfdzT/+8qXEuBuNOJe+koYfnCcv
ucIZun4xrLyGo71BDC010YaY3SOqxW/Vtrv9b0uLOx4mffj2ZO+LFf0fgDJp
jyjRe2UzdYNQVFtpW8bWj/J0vpUWc+7EbnOxdzsSHjXSSbkfUcOViLDoxJNb
J7/8u9ddfEJO15I+80vqouxnhxPfqAienvFxeGvUm4uPlit3Qs59dGxfdM2A
TcjbMz90Pknyrk3raCoM/jy5vCcvfN+VoUPoMqyk5WJARNGwe+yBkDsWYqRd
edG7Pdds2ukbcCimuMegW1PSMKO82jF+g5AEegQPU/UImZUNH2bUFlO9F7PQ
9VaX7jvYfdtt4qxj6afKcc9K8t68PTMdo+rEmLAy2Op1u+QWHRYnce0J23f9
yojeWhHWp8bc5Yh6Hnw+baJHbi8maUp0nXe4YkjT2PqRe39G+2jUIeksulXU
pef0kHQW3HxI/GQqjkVQETrXcu35JmNfuRsBY5eXHEZuEHJAj+Bhsh4hsbIZ
G1oaRN8zC69gi+X0wPRvCoe/HqhBxrm8eOw01bmZm+9lbR8z0ocdDEImVnWi
pCHOwe54Tft9vyUBD/S/1KR2NNNi+LHwi73H/eGN+SvcFazeFFrBN86OMg5J
c6rXIschLPW51z20uig0CAY9gg/0iFH4tUFsLUeNnjYHt0Fw6Cvba23tnRZ5
G//7MpKG2L+NeU/RLjJO5vYPQ4u5RpuB3AcbHHenhHgM/3Sf6UczLfofS3eO
y5jxHz2EZtETpBoEgx7BB3rEOOh3zyKqDptu6ZlyKrHgbnYZzmdJZNzHPwZ4
+55Ivph+qwbvDTBK4D/82HqK85clOm9E2pV/7kLxkO/Y6j2aaaH4WIRPQqe+
Nj2iyuBPoJonaDUIBj2iAnqERvQ7swgqD9jbrNiwcmdsKRenbdozN1iNHf37
l36r4KU/zthtxN/d4T/yXx72WI8XLrvvrrOwWJcz+EZN79FMC9XHIueWfOs1
z27ZFr/A4JCIjBYGvt9iQtBqEAx6RAX0CI3o/Q4+IeKWa1+GnK9Tn8zlks78
Y/73qd5GP5KWlA1uyVR9H5Ta0UwLm46FZdDZIBj0CD5sOhb2I209v2jiAs1v
MClu+quyL95oMtIto4xz2X3i+9/gfWPVpKOZFjYdC8ugs0Ew6BF82HQs5oCc
Vxq23GrM2HddVm/1PxKVVthhhA+9aDbVkbVk6sqUFmo2QO1opoVNx8I2aGwQ
DHoEHzYdCwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGBUDP4ZUlqHJYOE1yVC
6WvW7KuwGcK+ENFpE/bV1tyRtKTv8z14yD3422OBR4vaarLD7EaNmhP74jcG
pa3nF//p5fE+KYWlWYemj/rzsqhcjhiTC5tuhS+Yvi2xqN98IOfXZF4tfPH7
E4OGfdjVkuZqY/XOtGnT3rH465Q9pbzuB0e3uM6xGvfumpOPVV6FzrwrWcR2
DVKI66IXW0+YMNFirp9xvxmuA+yqsJlikhD5vY+iAz/a8MHf3lsTV6f87Xp2
tgm7assmZAZUQ1L3vdPijOqi4KwWfuvtKq6cX7bPyeY1K/8S9a9GiGrjVnu+
9ecRFNXCJ6c+zut37Ejbruz57HanbORhn7Q9u/1M9etG0qbktZ8/6qhNjCvs
kSkGj3aY8IH6dxRk7dl79mbi/woiKbhF+7edKe1G6hqFXRVmMIxrE25v5b1G
gdJO/Y39wvNq5zAL24RdtTU2so7sbZ4J9byG5F2bv60Z8CVlKSf7gIfjO2+/
Mmq8lc1Mj0tt+h2HpD5+pdcdRVF5xTsd1g8UrelKX9l+O8uFm9ekakzq/Mdh
e89+YjPun9c7FOXml4btPZdg9+YIsYqqY3YXaGIVlO932VXEIxhWjSLVNf7F
PLm0T6pqc37xzjmb8jRXTdy87QsPVhqizBDWRnsvsx03etzi4P906FZY8fOc
r5bMCSoXKH/r12F5ZvswA3hvaXJ0yvXriUEbD97vGfioXPAsKy4p42q874xX
X317soXF1AWHfxlwGGyqMGVoKRq0iSJEzd/EjRlfhOd29S+ZJm0TgpVN/w5i
U22NTk/uOtsdObnxJ260DfqarEzQyhHK+0qD3BMMcVrI26+tXHq2WaoUgc9e
kNpqkHdJ1lscvXHS/1q5Hy9QXOUqYt1fWJng+KZdVJ2oIyfg69K6jLlaYpU0
xDoN24vBw6pQpOrhW/Dr7Te/9KvNUS9mp7Tx9Pz5SYb/EJLkebb/+1ab8nW9
ze/O8XSJfCpozfAa/rPkss6bO/4eWaOUt1cenLcm91cnlrz7zm63SKWqRFIf
6+x6bVhDYeyrsMFoKxq0SX+I4ue5sR+7jB+75DuNDt7UbYK3sinRr4Mw9tUW
D2F1hPuqo1UGnLr6SvdM+cvUGetvjShPElaGr44y6Bd/eAXeLqG/CBV1+ve8
2aFPDP7hpp6SAz+e/WyWjXchj18efqCkt+snz/GWn1xN8ktpEHEua2LlFW62
nP5CViqsitpXrJ4fouqwOYsyO4iGVf5VkerqXS/80nJu2ZmYnPZfU5Q9T19o
f4KkfJYQWduFRS46LySCisOugffzT8eXDNNdyNrSltqHVSmPnP/w0wUBA0SG
nTdXzAksV84VUdXRBf/6GcfDyKoKG9wgpIoGbdKP6OnxuQ4/NKhXctO2CeHK
pl8HqWFZbUdG1lOcllbcrf8Vjrg20sH51BmvmWuz2oePIqmLWbTmBq6wjwSK
SzDbhVfb5aKa752mrHuAY9EgRV/t2ewWifITFPVPIua5ZXfyy0IDH3IVkyTY
ZrS1Z3aHTM7JmKOOVdIQZzd5lWZOyTi3Pk/SnOtlredc5sc3SgmGVfw3aXOK
u8/P6lck5IK6rPO32xQRynh1Vb2qZ4rrvnNaksExoC5ysUhVCnFtlPvhx7ou
fILH+508v0gaSf7em+s+yTZReS3DexTieXKACVzWmjrf9oiyY4TVpzyCR3g/
lFUV1hy0gQ2ivWgYtMkAZK0XVu24q3kByaRtQryy6dVB7KqtIezFp6WlRfkv
JI2nne3CqnhNZ9YvPXRvWANKGn5wnrzkCodwohONL20+62TpON9z1/6wiGXv
LQu/qPUTDfijiZvT9u39+vuv1wYe+yrohzJOdVaI3cx9V6r5oqbUTYdK+NLe
R6nbx70yYeeFCp5Mzis7temDVTsCQkJDDx6Oe/TiykT0NNJ1y8CXsQcPW676
cFJzyqptd1X3ruLGM+ssxltYK5hiY/+5xqzdnbPxH1HPtF4v4B8Lv8TXdoqz
z/H4hLj0KgId0shVxXrzd2xLrB9p+4KKoKlvzHINSriUnhT/U+ugfyJpPrfd
zT/+8qXEuBuNI10VM6zC0raMrR/l4dx5kUJ7g2gvGgZtoni0IcHdeVXAdz+m
Jv1Y8MLfbso20bKy6ddBzKutPog5d2K3udi7HQmPGunM24+o4UpEWHTiya2T
X/7d6y4+IadrqXvXR/D0jI/DW6PeXHy0XLkHcu6jY/uiawaML2/P/ND5JMlb
Nq2jqTD4U9/ynrzwfVeGDqHLsJKWiwERRYTaVXLHQoy0Ky96t+eaTTt9Aw7F
FPeQuoyV1EXZzw4feJmlO8yoMKZVe4RAg6iBNsHDVG1CAIkOYkZtDaH7ttvE
WcfST5XjXrbJe/P2zHSMqhNjwspgq9ftklsMLfwAhPWpMXc5op4Hn0+b6JHb
i0maEl3nHa4Y0jG2fsNep9RzNOqQdBbdKurSc25IOgtuPiR+MhXHIqgInWu5
9nyTTlcl4toTtu/6lZneQ2jsCqvQKtQzcYOogTbBw2RtQgBdHURLg+gLr2CL
5fTA9G8KcV/glXEuLx47TXUC5uZ7WdvHGPLplRGGF6vaUNIQ52B3vKb9vt+S
gAf6n0apHc20GH4s/GLvcX94Y/4KdwWrN4VW8I2zo0xE0pzqtchRia3lqNHT
5qj+uNTnXvfQApu8QTQbgTbBAdrEKPzaIAMYqUFw6Cvba23tnRZ5G//7MpKG
2L+NeU/RLjJO5vYPQ4u5xpmB3AcbHHenhHgM//ye6UczLfofS3eOy5jxHz2E
TiFAyz0LOg2iBtoED2gTlBBVh0239Ew5lVhwN7sM57MkMu7jHwO8fU8kX0y/
VUPwBpiB8B9+bD3F+csSnbcg7co/d6F4yBds9R7NtFB8LMInoVNfmx5RZTy9
LvMhPrMg1CBqoE0waBMGIKg8YG+zYsPKnbGlXJy2ac/cYDV29O9f+q2Cl/44
Y7exfneH/8h/edhjPV6a7L67zsJiXc7guzS9RzMtVB+LnFvyrdc8u2Vb/AKD
QyIyWsAiPgziMwtCDaIG2gSDNmEB4pZrX4acr1OfzOWSzvxj/vcJ3uzUH0lL
yga3ZKq+DErtaKaFTcfCPmhrEDXQJniw6VjYj7T1/KKJC9Kfqy/WZNyq7Is3
moxxyyjjXHaf+P43Bn3/2FijmRY2HQv7oK1B1ECb4MGmYzEH5LzSsOVWY8a+
67J6q/+RqLTCDiN86EW5nY6sJVNXprRQMzq1o5kWNh0LC6GrQTRbgzbBgU3H
AgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJBHwusSMesbxuYN5AUAALKI66IX
W0+YMNFirp9xvxQNUALkBQAAHjJUrja5Rfu3nSnthq/kagWNyCCvQaARCgCY
EEl9/EqvO90Yxive6bA+t0f7MwiR9ZYmR6dcv54YtPHg/R59G0xYG+29zHbc
6HGLg//ToetyJevI3uaZUM9rSN61+duaAV+pFj/P+WrJnKBygfIXcB2WZ7YP
3D254FlWXFLG1XjfGa+++vZkC4upCw7/8qslQsrJPuDh+M7br4wab2Uz0+NS
mwkXUcoiIyyILhgnL83DuDMKqcgoC4XS3SaorZbq6YrWuUTNygAwBXn7tZVL
zzZLlRLu2QtSWw1zHsk6b+74e2SNUhheeXDemlxDJLKKZn2e7f++1aZ8HV9d
6cldZ7sjJzf+xI22YV/q7c7xdIl8KmjN8Br8Y93y7ju73SKVig5Jfayz67Wh
fSETtHKE8r7SIPcEY9g7dILSyPAKog9GyItgRqEVGWWhULvbuLXVVj19IJpL
1K4MAD0IqyPcVx2t0ut6g1fg7RL6ixCTNv173uzQJ4b9aJKsLW2pfViVUvLJ
f/jpggByhjzCAS8sctGxTftK90z5y9QZ62+NpHoSVBx2Dbyffzq+ZPDU77y5
Yk5gubKCoqqjC/7184gTX1gZvjqKmt82QiYyvILoB+V5EcwouiMjhtJQKNtt
/NqSqp6OEMwlylcGgA5kPcVpacXd+lwmKa6wbBdebZeLar53mrLuAY7Bgiy9
ue6TbBOVP1jKexTieVJ/E7tcLFLtibg2yv3wY53WX3FtpIPzqTNeM9dmtQ8/
GsHj/U6eXyQNVaLLWlPn2x5RTnxh9SmP4JHfg5bUxSxacwNXTagTyESGUxAd
MVpe+DOK9sgIoTYUqnYbv7akqqcrBHOJspUBQIe9I9HS0qJ8TNp81snScb7n
rv1hEcveWxZ+sbZPy3QmGk1QETT1jVmuQQmX0pPif2rVdsmFPxS/xNd2irPP
8fiEuPQqAhPQCM+VNJ52tgur4jWdWb/00L1hS3dv/o5tifXD90zSfG67m3/8
5UuJcTcacS44JQ0/OE9ecoWjbdWQtmVs/SjPkItA+iLDLYhO4xgtL6IZRWVk
ZKAxFFK7PeIIg8Yhqi2Z6umyLSX4c0mXlcHw9gEoQMy5E7vNxd7tSHjU8EsF
wdMzPg5vjXpz8dFy5WNy7qNj+6JrBlxRytszP3Q+WUvurlvraJK6KPvZ4WQu
R7QORQJpV170bs81m3b6BhyKKe6hYu2gCC3+XJQiI4mp8iI/o4wKmqEoETVc
iQiLTjy5dfLLv3vdxSfkdK3+b8EbcVs65ailfQC66L7tNnHWsfRT5UPP8sL6
1Ji7HFHPg8+nTfTI7cUkTYmu8w5XDGkIWz9yL3lqH01ce8L2Xb8y7aNpH0o7
gorQuZZrzzehKHTQ2hrIREYOk+VFekYZFTRDUW62N2/PTMeoOjEmrAy2et0u
ucV4l1cGbUu3HOHMgga8gi2W0wPTvykc/qqsTKxKX9IQ52B3vKb9vt+SgAf6
v01L4WiGD8Uv9h73hzfmr3BXsHpTaAVfr/2gFklzqtciRyW2lqNGT5uj+uNS
n3vdQ4+McZGxMy9sYGQDGBYZmqEobVmLx05T3Qlw872s7WOM+Ak4GrZFun0A
Wugr22tt7Z0Wefs5/qfeuQ82OO5OCfEw/GOlFI+m/1DdOS5jxn/0EJEFagha
LrqYGxlL8yILYqFIGmL/NuY9xRov42Ru/zC0mGvEJZjObcE9CwqIqsOmW3qm
nEosuJtdhveBFP7Dj62nOH9ZQvDW6shIu/LPXSge8sVq/UajcCglwiehU1+b
HlFlPLOsARC3BjMiM6e8yGLyUAYj4z7+McDb90TyxfRbNXqPgt624MyCAoLK
A/Y2Kzas3BlbysV94ZP/yH952GM9Xq3uvrvOwmJdzuD7Uf1Go3AoFXJuybde
8+yWbfELDA6JyGhB6f0W4tZgRmTmlBdZTB7KQGTtmRusxo7+/Uu/VfDSH2fs
NuKvtdG5LTizMAZJS8oGt+Qmin7ZgsLRqN0xNoFmZGaeF1KhiFuufRlyvk59
CyiXdOYf879vrLWYzm0BjEHGuew+8f1vKPoWMoWjUbtjbALNyMw8L6RCkbae
XzRxQfpz9S2vjFuVffFGk5FeaKRzWwBzkHdkLZm6MqWFmk9yUDgatTvGJtCM
zMzzQisUOa80bLnVmLHvuqze6n8kKq2ww3ix0LktAAAAAAAAAAAAAAAAAAAA
AAAAADA/wKOKDpAFOkAWAKAjFPqIKTacEthUKXS2ouRRZZzTVvUwRfUxxBZt
BJD0dKtGMnVT0J8FwECok9sawXCKZ1OlWDWLikeVaU5b1aaorI++tmgjgK6n
28RNYYIsACZCnUeVesMpoamWQtUsKh5VpjltMarrY5AtmlqQ9XSbuilMkAXA
QKjzqFJvOCU21VKomkXEo8o0p60SautjiC2aWhD1dJu+KUyQBYAodHlUqTac
ajELU+RsVUKfR5WuLDBanLY61MewIHSbWiShLwsKq2T6pjBKFgCzQNejqoYe
myoaHlV0s6CrPrTKcwlB1tOtBPmmAMwdZD2qmo3TYlNFxKOKbBa01YdOeS4x
yHq6MUY0BQAg6lHVDEeLTRUZjyqiWdDmtKVnQ4z2C2MsagqMbBYAk0HMo6qG
HsMpch5VxLKgrT50BkEWxLLA2NgUAJtBzKOqhh7DKXIeVcSyoK0+dAZBFsSy
wNjYFACbQcqjqoYewymCHlWksqCtPvQGQRakssDY2RQAe0HKo6qGHsMpgh5V
pLKgrT4IBoEhlgVmxk0BMBKkPKpq6DGcIuhRRSoL2uqDYBAYYllgZtwUADNB
y6OqGYUWwyl6HlW0sqCtPugFgaGWBWa+TQEAAAAAAAAAAAAAAAAAAAAAAAAA
AAFgZUUHyAIdIAsA0BFG2oo1Dxvfk0up9lcrzDPkUh46+7KgxxytVbqt85Zw
Jw/YigESMNJWrIIOTy7FBlgtMM+QaxR3LbuyoM8cTSTd1hX8yQO2YoAUjLUV
0+PJVUKdAVYLDDTkGsNdy74s6DFHE9VNRwgmD9iKATIw11ZMiydXCYUGWGIY
aMg1iruWfVnQY44mqJuu4E8esBUD/dBlZaXXVkyTJxcjaYDFULMV02TIpTp0
JRRkQQb6sqDHHE1UN122ghFPHp1txWT6AmAW6Bpy1bDLk4uUrRjB+phgWzig
2xdoqIp1mzzaIPUb4ACDQNaQq9k42zy5KNmKUawP3dvCA9m+QEVVrJukWytw
ZmEd6FpZMRZ5chltK8ZoDIKGbTHaVswmVTFGti8AJoOelRVjoyeXibZijF53
LVqeXMSyYKuqGO5ZWAt6VlaMjZ5cJtqKMXrdtWh5chHLgq2qYjizsBbUrKwY
Oz25zLMVY/S6a1Hz5CKVBXtVxXBmYSmoWVkxM/bkopYFnfWBLAgAVTHAMFCz
smJm7MlFLQs66wNZEACqYoBpIGdlxczXk4tcFnTWB7Igej6oigEAAAAAAAAA
AAAAAAAAAAAAAAAAGAGwsqIDZIEOkAU6QBYMgTIrK6W+VFwrK+XKWpSsrBTa
irWInslDpz6YpVnQZ/GmzVnMUHM0PWuUkaYrGlmQhlJDLnW+VDwrK9XKWqSs
rFRmQSh61hGa9MEszYJmizctzmKGmqOVGH+NMs50RSQL8lBqZaXMl0poZaVQ
WYuWlZXCLIgLqCP06IPZmgXNFm96nMVKmGmOpmGNMsZ0RSUL0lBrZaXKl0ps
ZaVQWYuUlZXCLIgLqCv06INZmgXdFm9anMVKGGqONv4aZZTpikgWg6DRykqR
L1WLlZUi9ytmAisrTVloKaCOVTJYH2zWWdBs8abJWYwx1hxNwxplBIU3jVmQ
Aays6FhZIQvIgixsTAQPdLNASeFNTxZkASsrOlZWyAKyIAlLExkZZLNAS+FN
SxY6AFZWdKyskAVkQW44tiQC5mh0tkUuC90BKys6VlbIArIghK2JaAGxLMxX
4a0TYGVFx8oKWUAWhLA1ES0gloX5Krx1Aqys6FhZIQvIggD2JqIFpLIwZ4W3
DoCVFR0rK2QBWRBgtokglYU5K7x1AKys6FhZIQvIggCzTQSpLMxZ4a0LYGVF
x8oKWUAWhKOYaSJoZWHGCm8AAAAAAAAAAAAAAAAAAAAAAAAAQcAEig6QBTpA
FugAWTAEhhlyWW0CpTALJfjyX51HokWPqyVZhmZBlyFX9TBlibMzC7rWKNWW
2JkFaRhmyGW1CZRSKyuB/Fd36NDjakuWwVnQYMhVQl3i7M2CjjVKCVuzIA/T
DLlsNoFSamXVclA6QYsel1SyzMyCHos3hYmzNgu6LN6szYI0TDPkstkESq2V
lfigdIIWPS6pZBmaBT0Wb+oSZ20WtFm82ZrFIGgygdJkyGW2CZSmLLQflJZB
Bg1Fkx6XTLJks0DJVozRZPGmMHG2ZkGbxRvVLKgCTKBktsVKK6tuB4WGHpdC
mGorNqBEKCauArIw3oZMA5hASW2LlVZWXQ4KFT0ulTDSVmxQidBLvB/Iwmgb
MhVgAkXHBIpoFhiL9LgYw23FtPUFZKF9IHZlYSzABIqOCRSxLDCW6nGZaCum
rUSQhVbYmgXFgAkUHRMoYllgLNXjMtFWTFuJIAutsDULigETKDomUKSywFir
x2WerZi2EkEWWmFvFpQCJlAatkUSpLLAzFiPiyGWBW0lgiy0YuZZkAVMoDRs
iyRIZYGZsR4XQywL2koEWWjFzLMgDZhA0TGBopUFZr56XAy1LGgrEWSh/flm
nQUAAAAAGIX/B3gN0VE=
    "], {{0, 139}, {542, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{542, 139},
  PlotRange->{{0, 542}, {0, 139}}]], "Output",
 ImageSize->{546, 139},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->{"Chisholm", "RasterizedOutput"},
 CellLabel->"Out[15]=",
 CellID->2139407513]
}, Open  ]],

Cell[TextData[{
 "Check the equality of the expressions before and after applying ",
 ButtonBox["Chisholm.",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/Chisholm",
  ButtonNote->"Chisholm"]
}], "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DiracSimplify", "[", 
  RowBox[{
   RowBox[{"GA", "[", 
    RowBox[{
    "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]", ",", "\[Tau]", ",",
      "\[Kappa]"}], "]"}], ".", 
   RowBox[{"GA", "[", 
    RowBox[{
    "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]", ",", "\[Tau]", ",",
      "\[Kappa]"}], "]"}]}], "]"}]], "Input",
 CellLabel->"In[16]:="],

Cell[BoxData[
 FormBox[
  RowBox[{"-", "2048"}], TraditionalForm]], "Output",
 ImageSize->{44, 14},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[16]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DiracSimplify", "[", 
  RowBox[{
   RowBox[{"Chisholm", "[", 
    RowBox[{"GA", "[", 
     RowBox[{
     "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]", ",", "\[Tau]", 
      ",", "\[Kappa]"}], "]"}], "]"}], ".", 
   RowBox[{"Chisholm", "[", 
    RowBox[{"GA", "[", 
     RowBox[{
     "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]", ",", "\[Tau]", 
      ",", "\[Kappa]"}], "]"}], "]"}]}], "]"}]], "Input",
 CellLabel->"In[17]:="],

Cell[BoxData[
 FormBox[
  RowBox[{"-", "2048"}], TraditionalForm]], "Output",
 ImageSize->{44, 14},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[17]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DiracReduce", "[", 
  RowBox[{
   RowBox[{"GA", "[", 
    RowBox[{
    "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]", ",", "\[Tau]", ",",
      "\[Kappa]"}], "]"}], ".", 
   RowBox[{"Chisholm", "[", 
    RowBox[{"GA", "[", 
     RowBox[{
     "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]", ",", "\[Tau]", 
      ",", "\[Kappa]"}], "]"}], "]"}]}], "]"}]], "Input",
 CellLabel->"In[18]:="],

Cell[BoxData[
 FormBox[
  RowBox[{"-", "2048"}], TraditionalForm]], "Output",
 ImageSize->{44, 14},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[18]="]
}, Open  ]],

Cell[TextData[{
 "Older FeynCalc versions had a function called Chisholm2 that acted on \
expressions like ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["\[Gamma]", "\[Mu]"], 
   SuperscriptBox["\[Gamma]", "\[Nu]"], 
   SuperscriptBox["\[Gamma]", "5"]}]], "InlineFormula"],
 ". This functionality is now part of ",
 ButtonBox["Chisholm",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/Chisholm",
  ButtonNote->"Chisholm"],
 " and can be activated by setting the option Mode to 2."
}], "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GA", "[", 
  RowBox[{"\[Mu]", ",", "\[Nu]", ",", "5"}], "]"}]], "Input",
 CellLabel->"In[19]:="],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Mu]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox[
      FormBox["\[Nu]",
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox["5",
      TraditionalForm]],
    TraditionalForm]}], TraditionalForm]], "Output",
 ImageSize->{73, 19},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[19]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Chisholm", "[", 
  RowBox[{"%", ",", 
   RowBox[{"Mode", "\[Rule]", "2"}]}], "]"}]], "Input",
 CellLabel->"In[20]:="],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    SuperscriptBox["\[Sigma]", 
     RowBox[{
      FormBox[
       FormBox[
        RowBox[{"$MU", "\[InvisibleApplication]", 
         RowBox[{"(", "$353", ")"}]}],
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox[
        RowBox[{"$MU", "\[InvisibleApplication]", 
         RowBox[{"(", "$354", ")"}]}],
        TraditionalForm],
       TraditionalForm]}]], " ", 
    SuperscriptBox[
     OverscriptBox["\[Epsilon]", "_"], 
     RowBox[{
      FormBox[
       FormBox["\[Mu]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox[
        RowBox[{"$MU", "\[InvisibleApplication]", 
         RowBox[{"(", "$353", ")"}]}],
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox[
        RowBox[{"$MU", "\[InvisibleApplication]", 
         RowBox[{"(", "$354", ")"}]}],
        TraditionalForm],
       TraditionalForm]}]]}], "+", 
   RowBox[{
    SuperscriptBox[
     OverscriptBox["\[Gamma]", "_"], 
     FormBox["5",
      TraditionalForm]], " ", 
    SuperscriptBox[
     OverscriptBox["g", "_"], 
     RowBox[{
      FormBox[
       FormBox["\[Mu]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]}]]}]}], TraditionalForm]], "Output",
 ImageSize->{364, 35},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[20]="]
}, Open  ]]
}, Open  ]],

Cell["", "SectionFooterSpacer"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "See Also"
}], "SeeAlsoSection",
 WholeCellGroupOpener->True,
 CellID->1255426704],

Cell[TextData[StyleBox[ButtonBox["EpsChisholm",
 BaseStyle->"Link",
 ButtonData->"paclet:FeynCalc/ref/EpsChisholm",
 ButtonNote->"EpsChisholm"],
 FontFamily->"Verdana"]], "SeeAlso"]
}, Open  ]],

Cell[" ", "FooterCell"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{725, 750},
WindowMargins->{{-10, Automatic}, {Automatic, -8}},
WindowTitle->"Chisholm",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
  GridBox[{{
      RowBox[{
        ButtonBox[
        "FeynCalc", ButtonData -> "paclet:FeynCalc/guide/FeynCalc", 
         BaseStyle -> {"Link", "DockedLinkTrail"}]}]}}, ColumnAlignments -> 
    Left], "HasOptions" -> False, "ExampleCounter" -> 1, "NeedPlatMsgIn" -> 
  None, "RootCaptions" -> "", 
  "Metadata" -> {
   "built" -> "{2020, 6, 20, 19, 2, 57.431765}", 
    "history" -> {"9.0", "", "", ""}, "context" -> "FeynCalc`", 
    "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Feyn Calc Symbol", "language" -> "en", "paclet" -> "FeynCalc", "status" -> 
    "None", "summary" -> 
    "Chisholm[exp] substitutes products of three Dirac matrices or slashes by \
the Chisholm identity.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "Chisholm", "titlemodifier" -> "", "windowtitle" -> "Chisholm", "type" -> 
    "Symbol", "uri" -> "FeynCalc/ref/Chisholm"}, "SearchTextTranslated" -> ""},
CellContext->"Global`",
FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[
    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
   Cell[
    StyleData["Input"], CellContext -> "Global`"], 
   Cell[
    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
  FrontEndVersion -> "10.4 for Linux x86 (64-bit) (April 11, 2016)", 
  StyleDefinitions -> "Default.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "PrimaryExamplesSection"->{
  Cell[6225, 190, 388, 15, 31, "PrimaryExamplesSection",
   CellTags->"PrimaryExamplesSection",
   CellID->1819697314]},
 "Chisholm"->{
  Cell[6859, 219, 167, 5, 27, "Input",
   CellTags->"Chisholm",
   CellID->820852327],
  Cell[7029, 226, 748, 31, 37, "Output",
   CellTags->"Chisholm"],
  Cell[7880, 264, 128, 4, 27, "Input",
   CellTags->"Chisholm",
   CellID->1637229100],
  Cell[8011, 270, 2384, 96, 40, "Output",
   CellTags->"Chisholm"],
  Cell[11532, 420, 128, 4, 27, "Input",
   CellTags->"Chisholm",
   CellID->1963239115],
  Cell[11663, 426, 3091, 123, 40, "Output",
   CellTags->"Chisholm"],
  Cell[41321, 1599, 225, 7, 27, "Input",
   CellTags->"Chisholm",
   CellID->1800486413],
  Cell[41549, 1608, 1312, 55, 37, "Output",
   CellTags->"Chisholm"],
  Cell[42898, 1668, 129, 4, 27, "Input",
   CellTags->"Chisholm",
   CellID->1694713808],
  Cell[43030, 1674, 12522, 213, 153, "Output",
   CellTags->{"Chisholm", "RasterizedOutput"},
   CellID->2139407513]},
 "RasterizedOutput"->{
  Cell[43030, 1674, 12522, 213, 153, "Output",
   CellTags->{"Chisholm", "RasterizedOutput"},
   CellID->2139407513]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"PrimaryExamplesSection", 63273, 2171},
 {"Chisholm", 63409, 2175},
 {"RasterizedOutput", 64270, 2202}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[580, 21, 3007, 74, 53, "AnchorBarGrid",
 CellID->1],
Cell[3590, 97, 285, 11, 45, "ObjectNameGrid"],
Cell[CellGroupData[{
Cell[3900, 112, 419, 12, 85, "Usage",
 CellID->982511436],
Cell[CellGroupData[{
Cell[4344, 128, 739, 24, 31, "NotesSection",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1956487543],
Cell[5086, 154, 31, 0, 14, "SectionHeaderSpacer"],
Cell[CellGroupData[{
Cell[5142, 158, 91, 2, 27, "Input"],
Cell[5236, 162, 928, 21, 94, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[6225, 190, 388, 15, 31, "PrimaryExamplesSection",
 CellTags->"PrimaryExamplesSection",
 CellID->1819697314],
Cell[CellGroupData[{
Cell[6638, 209, 196, 6, 26, "ExampleSection",
 CellID->1704469344],
Cell[CellGroupData[{
Cell[6859, 219, 167, 5, 27, "Input",
 CellTags->"Chisholm",
 CellID->820852327],
Cell[7029, 226, 748, 31, 37, "Output",
 CellTags->"Chisholm"]
}, Open  ]],
Cell[7792, 260, 63, 0, 32, "Notes"],
Cell[CellGroupData[{
Cell[7880, 264, 128, 4, 27, "Input",
 CellTags->"Chisholm",
 CellID->1637229100],
Cell[8011, 270, 2384, 96, 40, "Output",
 CellTags->"Chisholm"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10432, 371, 145, 4, 27, "Input"],
Cell[10580, 377, 915, 38, 39, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11532, 420, 128, 4, 27, "Input",
 CellTags->"Chisholm",
 CellID->1963239115],
Cell[11663, 426, 3091, 123, 40, "Output",
 CellTags->"Chisholm"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14791, 554, 302, 9, 27, "Input"],
Cell[15096, 565, 1186, 49, 39, "Output"]
}, Open  ]],
Cell[16297, 617, 184, 7, 32, "Notes"],
Cell[CellGroupData[{
Cell[16506, 628, 84, 2, 27, "Input"],
Cell[16593, 632, 6696, 260, 115, "Output"]
}, Open  ]],
Cell[23304, 895, 316, 10, 32, "Notes"],
Cell[CellGroupData[{
Cell[23645, 909, 161, 4, 27, "Input"],
Cell[23809, 915, 530, 21, 37, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24376, 941, 310, 9, 27, "Input"],
Cell[24689, 952, 5018, 188, 68, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29744, 1145, 89, 2, 27, "Input"],
Cell[29836, 1149, 167, 5, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30040, 1159, 343, 10, 27, "Input"],
Cell[30386, 1171, 6509, 242, 68, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36932, 1418, 90, 2, 27, "Input"],
Cell[37025, 1422, 187, 6, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37249, 1433, 112, 3, 27, "Input"],
Cell[37364, 1438, 930, 36, 37, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38331, 1479, 85, 2, 27, "Input"],
Cell[38419, 1483, 2865, 111, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41321, 1599, 225, 7, 27, "Input",
 CellTags->"Chisholm",
 CellID->1800486413],
Cell[41549, 1608, 1312, 55, 37, "Output",
 CellTags->"Chisholm"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42898, 1668, 129, 4, 27, "Input",
 CellTags->"Chisholm",
 CellID->1694713808],
Cell[43030, 1674, 12522, 213, 153, "Output",
 CellTags->{"Chisholm", "RasterizedOutput"},
 CellID->2139407513]
}, Open  ]],
Cell[55567, 1890, 214, 6, 32, "Notes"],
Cell[CellGroupData[{
Cell[55806, 1900, 389, 11, 27, "Input"],
Cell[56198, 1913, 188, 6, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56423, 1924, 469, 13, 45, "Input"],
Cell[56895, 1939, 188, 6, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57120, 1950, 427, 12, 27, "Input"],
Cell[57550, 1964, 188, 6, 35, "Output"]
}, Open  ]],
Cell[57753, 1973, 503, 14, 49, "Notes"],
Cell[CellGroupData[{
Cell[58281, 1991, 120, 3, 27, "Input"],
Cell[58404, 1996, 681, 28, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59122, 2029, 141, 4, 27, "Input"],
Cell[59266, 2035, 1604, 61, 56, "Output"]
}, Open  ]]
}, Open  ]],
Cell[60897, 2100, 31, 0, 29, "SectionFooterSpacer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60965, 2105, 270, 12, 31, "SeeAlsoSection",
 CellID->1255426704],
Cell[61238, 2119, 181, 4, 56, "SeeAlso"]
}, Open  ]],
Cell[61434, 2126, 23, 0, 41, "FooterCell"]
}
]
*)

(* End of internal cache information *)

